Neustart problem

[t0mmy]

Hallo!

Ich möchte meine Anwendung mit einem Button neustarten , jedoch bekomme ich folgenden fehler bei diesem Blockcode:

Delphi-Quellcode:

var
  FullProgPath: PChar;
begin
  if not deleteFile('C:\Users\Programmierung\Desktop\Neuer Ordner\Fertig\*.*') then
  begin
    Raise Exception.Create('Could not empty the folder');
  end;
  FullProgPath := PChar(Application.ExeName);
  WinExec(FullProgPath, SW_SHOW);
  Application.Terminate;
end;

bei der Zeile:

Delphi-Quellcode:

WinExec(FullProgPath, SW_SHOW);

kommt der Fehler:

Inkompatible Typen: 'Char' und 'AnsiChar'

[DeddyH]

WinExec galt schon als veraltet, als noch die Dinosaurier die Erde bevölkerten. Außerdem: wozu muss sich Dein Programm neu starten? Abgesehen davon: welche Delphi Version (> 2007?).

[Bummi]

falls Du es tatsächlich so brauchen solltest ....

Delphi-Quellcode:

var
  FullProgPath:AnsiString;
begin

  FullProgPath := Application.ExeName ;
  WinExec(@FullProgPath[1], SW_SHOW);

end;

[t0mmy]

Danke Bummi, aber ich hab schon eine lösung gefunden, außerdem Startet dein Code die Anwendung nochmal :) und beendet sie nicht.
d.h. wenn ich auf den Button mit deinem Code 10mal drauf klick dann bekomme ich 10 fenster -.-

[Bummi]

weil nur der Ersatz für den fehlerhaften Code enthalten war, den Rest habe ich weggelassen ...

[jobo]

Toll t0mmy! Du hast die Lösung gefunden, behälst sie für Dich und breitest Dich statt dessen über die Fehler anderer Lösungsvorschläge aus.
Vielen Dank für Deinen Beitrag!:roll:

[Luckie]

WinExec war eigentlich nur noch aus Kompatibilitätsgründen zu 16-Bit Programmen vorhanden. Windows 7 64-Bit unterstützt keine 16-Bit Programme mehr. Kann da mal jemand nachgucken, ob es diese Funktion da noch gibt?

Und warum fährst du deine Anwendung vor die Wand? reicht es nicht die Methode Close des Hauptformulares aufzurufen?

[Bummi]

Läuft schon noch
Delphi XE, Server 2008 R2 64 Bit

[Luckie]

Manchmal wünschte ich Microsoft würde seine Drohung endlich mal wahr machen. :?

[DeddyH]

Bis zur UAC war es ja auch ein langer Weg. Aber wenn es so funktioniert, soll es mir egal sein, auf meine Nachfragen wird ja auch nicht geantwortet.

[p80286]

Zitat:

Zitat von DeddyH (Beitrag 1110076)

Bis zur UAC war es ja auch ein langer Weg. Aber wenn es so funktioniert, soll es mir egal sein, auf meine Nachfragen wird ja auch nicht geantwortet.

Wenn man seinen Codeschnipsel versucht zu interpretieren, dann möchte er wohl das Programm beenden um es dann löschen zu können??????
Warum es dann, mit den wohl ursprünglichen Parametern, neu gestartet wird ???
(das erinnert mich alles an selige Dosenzeiten, als man tricksen mußte um eine Diskette wechseln zu können)

Gruß
K-H

[DeddyH]

Er versucht irgendwelche Dateien aus einem hartkodierten Ordner zu löschen und startet dann das eigene Programm neu. Da frage ich mich schon, wozu das gut sein soll.

[p80286]

Zitat:

Zitat von DeddyH (Beitrag 1110092)

Er versucht irgendwelche Dateien aus einem hartkodierten Ordner zu löschen und startet dann das eigene Programm neu. Da frage ich mich schon, wozu das gut sein soll.

Abschreckendes Beispiel?

Gruß
K-H

[t0mmy]

@jobo

Hier...fallst es brauchst:

Delphi-Quellcode:

ShellExecute(0,'open',PChar(ParamStr(0)),nil,nil,SW_SHOWDEFAULT);
Close;