Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

mao © (2003-08-01 07:05:00)

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

TheOldMen (2003-08-13 16:05:00) [1]

Для этого можно воспользоваться 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;

Anatoly Podgoretsky (2003-08-11 20:39:00) [2]

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

clickmaker (2003-08-11 20:18:00) [3]

Можно проще

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

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

Vlad25 (2003-08-11 20:10:00) [4]

>Подскажите, как получить путь до папки 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.

andrey_pst (2003-08-01 07:18:00) [5]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »