Как найти каталог Windows 2
| Win95 как самолет - тошнит, а выйти некуда! |
{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}
...
implementation
...
var
a : array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(a, sizeof(a));
ShowMessage(StrPas(a));
GetSystemDirectory(a, sizeof(a));
ShowMessage(StrPas(a));
|