Microsoft Paint Pfad ?

[DeddyH]

So? Ich kann Paint auch deinstallieren, wenn ich nicht irre. Naja, wie dem auch sei, Du kannst es mal hiermit versuchen (unter XP, Vista weiß ich nicht):

Delphi-Quellcode:

function SysDir: string;
begin
  SetLength(Result,MAX_PATH);
  if GetSystemDirectory(PChar(Result),Pred(MAX_PATH)) > 0 then
    SetLength(Result,StrLen(PChar(Result)))
  else
    begin
      SetLength(Result,0);
      MessageBox(0,
                 PChar(SysErrorMessage(GetLastError)),
                 'Fehler',
                 MB_OK or MB_ICONERROR);
    end;
end;