Hvordan laves c:\%Windir%\ i delphi ?

http://www.swissdelphicenter.ch/torry/showcode.php?id=144

Du kan jo også få den til at indsætte System32 biblioteket:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute (0,'open',PChar(SystemDir+'\mstsc.exe'),nil,nil,SW_NORMAL);
end;

Hej igen

Jeg har ikke testet det endnu, men jag forstår ik lige hvorfor der skal indsættes Systemdir i linien og ikke result.

Mvh Glenn

Forstår ikke helt hvad du mener, men hvis det er SystemDir i ShellExecute er det, fordi funktionen lige over Button1Click bliver kaldt :o)

Hej

He He havde ikke lige setfunktionen hed systemdir :)

Point til dig hvis du lige giver et svar

Glenn

Svar :o)