Search results for 'QueryDosDevice'. 1 post(s) found.
- 2007/09/25 List Devices (LPT, COM ports, ...)
The following procedure will list all the devices on your computer. You can then extract the com ports and printer ports by looking for the 'COM' and 'LPT' characters in the list.
Add a Memo and a Button and place this code in the OnClick of a button...
procedure TForm1.Button1Click(Sender: TObject) ;
var
istr: string;
isize, j: dword;
begin
setlength(istr, 4000) ;
isize := QueryDosDevice(nil, @istr[1], 4000) ;
for j := 1 to isize do
if istr[j] = #0 then istr[j] := #10;
memo1.lines.CommaText := istr;
end;
var
istr: string;
isize, j: dword;
begin
setlength(istr, 4000) ;
isize := QueryDosDevice(nil, @istr[1], 4000) ;
for j := 1 to isize do
if istr[j] = #0 then istr[j] := #10;
memo1.lines.CommaText := istr;
end;
Another posts included in "Delphi"
| How to restrict mouse movement (0) | 2007/09/25 |
| How to send char as message to another application (0) | 2007/09/25 |
| How to save text from Clipboard to a file (0) | 2007/09/25 |
| How to know whether the font is TrueTypeFont or not (0) | 2007/09/25 |
| How to track a user's idle time (0) | 2007/09/25 |
| How to remove your application from TaskBar (0) | 2007/09/25 |
| How to play sounds on the PC Speaker ? (0) | 2007/09/20 |
| How to install an INF file using Delphi ? (0) | 2007/09/20 |
Trackback : Cannot send a trackbact to this post.
-
Subject Percocet.
2009/03/17 14:40
How long does percocet 7.5 stay in your system. Symtoms of withdrawl from percocet. Percocet. Percocet 93-490 10 mg.
-
Subject Weight gain and nexium.
2009/04/18 17:29
Generic name nexium. Side effects from going off nexium. Nexium.
-
Subject Viagra.
2009/05/02 15:03
Viagra. Free viagra. Re viagra cello. Buy viagra uk.
-
Subject different money making ideas
2010/01/29 00:55
moneyideas
-
Subject different money making ideas
2010/01/29 09:26
moneyideas
-
Subject different money making ideas
2010/01/31 16:41
moneyideas
Prev
Rss Feed