Windows Underground Programs

BadAzz · Beiträge: 33

Hallo
Ich bin zwar noch nicht weit in Delphi aber ich habe mal ein Programm geschrieben, mitdem man WindowsProgramme die man schwer findet nzw. in *Ausführen* eingeben muss öffnen kann.

WICHTIG:
Die .exe muss in das Windows Install Verzeichniss. Sonst klappts nicht!!!

Einloggen, um Attachments anzusehen!

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Eigendlich eine gute Idee, aber der Benutzer sollte nicht getzwungen sein das Programm in deinem Windows Ordner zu haben.

greetz

BadAzz · Beiträge: 33

ICh wusste nicht wie ich das sonst machen sollte weil wenn ich sage open C:\...
und jemand hat das z.B. auf F:\ dann klappts net!!!

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Es gibt doch funktionen, das installationsverzeichnis von Windows herauszufinden..

greetz

BadAzz · Beiträge: 33

Das wusste ich nicht. (bin newbie^^) Ich kenn den befehl gar nicht....

huhn · Beiträge: 272 Erhaltene Danke: 1 WIN XP D7Pers

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function GetWinDir: String;
var
  Dir: String;
  Len: DWord;
begin
  SetLength(Dir,MAX_PATH);
  Len:=GetWindowsDirectory(PChar(Dir),MAX_PATH);
  if Len>0 then
  begin
    SetLength(Dir,Len);
    Result:=Dir;
  end
  else
    RaiseLastOSError;
end;

Aus Easy Helper Network
mfg huhn

_________________
Quod Erat Demonstrandum-Was zu beweisen war! *THX to Chrissivo!*

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme