Compago

...free knowledge

 
  • Increase font size
  • Default font size
  • Decrease font size
Home Manuali Programmazione Trovare la directory di windows con delphi

Trovare la directory di windows con delphi

E-mail Stampa PDF

Per trovare la directory dove risiede il sistema operativo, solitamente c:\windows, è possibile usare la funzione GetWindowsDirectory:

 

function GetWinDir: string;
var
 dir: array [0..MAX_PATH] of Char; 
begin
 GetWindowsDirectory(dir, MAX_PATH); 
 Result := StrPas(dir); 
end;
 

oppure inserendo una verifica di errore

function WindowsDirectory: string; 
var
 WinDir: PChar; 
begin
 WinDir := StrAlloc(MAX_PATH); 
 GetWindowsDirectory(WinDir, MAX_PATH); 
 Result := string(WinDir); 
 if Result[Length(Result)] <> '\' then
 Result := Result + '\'; 
 StrDispose(WinDir); 
end;
 
function GetWindowsDirectory(var S: String): Boolean; 
var
 Len: Integer; 
begin
 Len := Windows.GetWindowsDirectory(nil, 0); 
 if Len > 0 then
 begin
 SetLength(S, Len); 
 Len := Windows.GetWindowsDirectory(PChar(S), Len); 
 SetLength(S, Len); 
 Result := Len > 0; 
 end else 
 Result := False; 
end;
 
Ultimo aggiornamento ( Venerdì 24 Settembre 2010 10:41 )  
Loading

Login