Search results for 'Windows Directory'. 1 post(s) found.
- 2007/08/25 How To Get Windows And System Directory
Get the name of the Windows and System Directory used in your system
function GetWinDir: String;
var
dir: array [0..max_path] of char;
begin
GetWindowsDirectory(dir, max_path);
result:=StrPas(dir);
end;
function GetSysDir: String;
var
dir: array [0..max_path] of char;
begin
GetSystemDirectory(dir, max_path);
result:=StrPas(dir);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=GetWinDir;
label2.caption:=GetSysDir;
end;
var
dir: array [0..max_path] of char;
begin
GetWindowsDirectory(dir, max_path);
result:=StrPas(dir);
end;
function GetSysDir: String;
var
dir: array [0..max_path] of char;
begin
GetSystemDirectory(dir, max_path);
result:=StrPas(dir);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=GetWinDir;
label2.caption:=GetSysDir;
end;
Another posts included in "Delphi"
| How To Get Volume Name (0) | 2007/08/25 |
| How To Register Own File Types (0) | 2007/08/25 |
| How To Force The Correct Decimal Separator (0) | 2007/08/25 |
| Get The Drive Type (0) | 2007/08/25 |
| How can I modify aliases programmatically ? (0) | 2007/08/25 |
| Setting TQuery SQL Statement (0) | 2007/08/25 |
GetSysDir,
GetSystemDir,
GetSystemDirectory,
GetWinDir,
GetWindowsDir,
GetWindowsDirectory,
System Directory,
Windows Directory
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 02:52
moneyideas
-
Subject different money making ideas
2010/01/29 11:20
moneyideas
-
Subject different money making ideas
2010/01/31 16:44
moneyideas
Prev
Rss Feed