procedure ExtractAllPath(const FullPath: string; var FileDrive, FilePath, FileName, FileExt: string);
begin
FileDrive := ExtractFileDrive(FullPath);
FilePath := ExtractFilePath(FullPath);
FileName := ExtractFileName(FullPath);
FileExt := ExtractFileExt(FullPath);
end;
{
FullPath = c:\windows\explorer.exe
FileDrive = c:
FilePath = c:\windows\
FileName = explorer.exe
FileExt = .exe
}