Путь до папки windows

← →
mao © (2003-08-01 07:05) [0]

Подскажите, как получить путь до папки windows. Попытался использовать GetWindowsDirectory, что-то не получается (не могу нормально вызвать). :о(

← →
andrey_pst © (2003-08-01 07:18) [1]

http://www.sources.ru/delphi_system.shtml#2

← →
Vlad25 (2003-08-11 20:10) [2]

>Подскажите, как получить путь до папки windows. Попытался >использовать GetWindowsDirectory, что-то не получается (не могу >нормально вызвать). :о(

GetWindowsDirectory вполне можно использовать. Единственная сложность заключается в преобразовании типа String в PChar, который используется API Win32.

unit Dir;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
lb: TLabel;
procedure RealizeLength(var S: String);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
SetLength(S,256);
GetWindowsDirectory(Pchar(S),256);
RealizeLength(S);
lb.Caption := S;
end;

procedure TForm1.RealizeLength(var S: String);
begin
SetLength(S, StrLen(PChar(S)));
end;

end.

← →
clickmaker © (2003-08-11 20:18) [3]

Можно проще

var
Buffer: array[0..1023] of Char;

SetString(Result, Buffer, GetWindowsDirectory(Buffer, SizeOf(Buffer)));

Еще проще
SetLength(S,MAX_PATH);
GetWindowsDirectory(S,MAX_PATH);
S := PChar(S);

← →
TheOldMen (2003-08-13 16:05) [5]

Для этого можно воспользоваться API функцией GetWindowsDirectory.

Для системной директории используется API функция GetSystemDirectory().

Пример:

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
a : Array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(a, sizeof(a));
ShowMessage(StrPas(a));
GetSystemDirectory(a, sizeof(a));
ShowMessage(StrPas(a));
end;

Путь до папки windows Найти похожие ветки