windir?

GetEnvvariable mener jeg, kig i api hjælpen der står det

Gå ind i Help -> Windows SDK

Søg efter GetWindow...  find her følgende:

LPSTR GetWindowsDir(LPSTR szBuf, INT cbBuf);

GetWindowsDir determines the name and path of the Windows directory.

Arguments

szBuff

Specifies the buffer you are providing for the storage of the typeface name.

cbBuff

Peter

Specifies the size of the buffer you are providing.

Return Value

The return value is the path name terminated with a backslash; for example, \"C:\\WINDOWS\\\".

Lille Demo:

procedure TfmMain.Button1Click(Sender: TObject);
Var
  WinDir : Array[0..200] Of Char;
begin
  GetWindowsDirectory(@WinDir, 200);

  ShowMessage(\'Windows dir = \'+String(WinDir));
end;

Peter

Function  GetWindowsDirectory : String;
begin
SetLength(Result, MAX_PATH);
Windows.GetWindowsDirectory(PChar(Result), MAX_PATH);
SetLength(Result, Pred(Pos(#0,Result)));
end;


JEns B

Jeg skal have en label1.text til at vise windir..

label1.text := GetWindowsDirectory;

Jens B

HA! Jens:  For langsom! (for en gangs skyld)

JesperBirk> Se mit eksempel. 

Istedet for:

ShowMessage(\'Windows dir = \'+String(WinDir));

skriver du

Label1.Caption := String(WinDir);

Peter

borrisholt>

Med dit eksempel, hvor du skriver:

label1.text := GetWindowsDirectory;

(Jeg antager her at Label1 er på Form1 og at TForm1 er i Unit1)

Så risikerer du at compileren i visse tilfælde bliver forvirret og opfatter sagen som

label1.text := Windows.GetWindowsDirectory;

Kun hvis din \"GetWindowsDirectory\" er oprettet som (evt. private) metode under TForm1 eller som (global) rutine i Unit1, så kan man, med fuld sikkerhed, skrive som du gør.    Indrømmet, det kræver en lidt usædvanlig rækkefølge af unit navnene i uses sætningen, dvs. \"Windows\" efter navnet på den unit der indeholder GetWindowsDirectory, men det er set før.  I dette tilfælde ville man i givetfald få en compiler fejl, idet der er forskel på parametre mv.  Men hvis man nu i en (sub)unit oprettede en function eller procedure med samme navn og parametre typer som en standard, windows function eller procedure, så vil man løbe ind i en runtime error, der kan være hamrende svær at finde.

Indrømmet: Det er pedantisk! og giver sikkert aldrig problemer i praxis.

Peter

delphi >> Burde du ikke sætte dig ned og læse lidt compiler teori ? Hvis en compiler finder flere funktioner med samme navn vil den altid tage den der er nærmest ! Altså mig ..

Udover det synes jeg at det er bedere at pakke den slags API kald ind i en funktion .. Det andet mindere mere om C++.

PS: Har du ikke en mail di skal have besvaret ?


Jens B