Windows mappe

Kode 

var
  WinDir : String;
begin
  SetLength(WinDir, 255);
  GetWindowsDirectory(PChar(WinDir), MAX_PATH);
  Caption := WinDir;

Men når jeg prøvet at bruge sammen med en ShellExecute(handle, 'open',....... Så vil den ikke. Så siger den "Incompitable types: String and PAnsiChar"

Kode 

function GetWinDir: String;
var
  Buffer: Array [0..255] of Char;
begin
  GetWindowsDirectory(Buffer, Length(Buffer));
  Result := Buffer;
end;

....
ShellExecute(Handle, 'open', PChar(GetWinDir), nil, nil, SW_SHOW);

Virker stadig ikke. Men problemet er når jeg siger PChar(WinDir) +'\\system32\\joy.cpl' osv.
Det vil den ikke.

GetWindowsDirectory

Eksempel:

Kode 

var
  WinDir : String;
begin
  SetLength(WinDir, 255);
  GetWindowsDirectory(PChar(WinDir), MAX_PATH);
  Caption := WinDir;

Og så er der også miljø-variablen %systemroot%, som vil lede dig til den samme sti.

Men når jeg prøvet at bruge sammen med en ShellExecute(handle, 'open',....... Så vil den ikke. Så siger den "Incompitable types: String and PAnsiChar"


Prøv at smide WinDir igennem en PChar() altså PChar(WinDir), der hvor du skriver WinDir

MH.

The-Freak

Livet er for kort til at kede sig.

Kode 

function GetWinDir: String;
var
  Buffer: Array [0..255] of Char;
begin
  GetWindowsDirectory(Buffer, Length(Buffer));
  Result := Buffer;
end;

....
ShellExecute(Handle, 'open', PChar(GetWinDir), nil, nil, SW_SHOW);

Mvh
DiZpel