Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизКак узнать в какой папке находится Windows? Найти похожие ветки
← →
copyr25 (2002-03-17 18:38) [2]...
var
Form1: TForm1;
Windir : String;
WindirP : PChar;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
WinDirP := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDirP, MAX_PATH);
WinDir := StrPas(WinDirP);
Label1.Caption:="Windows in: "+WinDir;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c