[DillerInc]

ERMUGARD

Код:

var
 SomeFile : array[0..MAX_PATH-1] of Char; 
 FullFileName : array[0..MAX_PATH-1] of Char;
 FileName : PChar;
begin
 GetFullPathName(@SomeFile,                // Указатель на строку,содержащую реальное имя файла
                             SizeOf(FullFileName), // Размер буфера,который получит полное имя файла(путь+имя)
                             @FullFileName,          // Указатель на буфер,который получит полное имя файла(путь+имя)
                             FileName);                 // Указатель на буфер,который получит адрес (4 байта),указывающий на имя файла в буфере           
                                                               // FullFileName 
end;