Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
var sAppdir : string;
..
.
.
.
.
sAppDir := ExtractFileDir(Application.ExeName); // Updatemanager steht im Applicationfolder
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
Danke!
das NT/2000/XP nicht case sensitiv ist, ist mir klar.
Der Fehler trat nur bei Windows98 auf (Welches ich allerdings in einer VMWare-Box laufen habe).
Nachdem ich den Quelltext dem Case der Dateinamen angepasst hatte, ging alles.
Gruss
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
Hi zusammen,
Hier der originalcode:
deletefile(sappdir+'\FDFinanzdeskManager.old');
renamefile(sappdir+'\FDFinanzdeskManager.exe',sappdir+'\FDFinanzdeskManager.old');
renamefile(sappdir+'\fdm_user_update.exe', sappdir+'\FDFinanzdeskManager.exe');
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
Hallo Roderich,
ich habe mich dafür entschuldigt. Jeder hat mal nen schlechten Tag. Ok - hab meine Prügel bekommen und nehme sie hin.
Es war übrigens fileexists gemeint. Hab mich da vertippelt.
Gruss
EL
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
jupp - sorry - vertippt.
Gruss
EL
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
He,
sorry .. :roll:
ich hatte ja bereits geschrieben, das das Problem erfolgreich gelöst ist. Das ist ja nur eine Nachdiskussion.
Wenn Du Dich durch meine "forsche" Antwort auf den Schlips getreten fühlst, dann entschuldige ich mich dafür. :duck:
Ich übrigens bisher auch noch nix mit Windows 98 zu tuen gehabt. Ich habs hier zum Testen in einer VMWare Box laufen.
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
jaja der Pfad war komplett mit dabei.
Anwort ans Callcenter: Ja mein Bildsdchirm ist eingeschaltet. Ja der kleine Knopf da unten rechts...
Gruss
EL
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
15. Okt 2004
Nein - ich konnte es definitiv nachvollziehen.
If hab da so eine Routine (in einer Updateprozedur):
if existsfile('testname.old') then deletefile('testname,old');
if existsfile('testname.exe') then renamefile('testname.exe','testname.old');
if existsfile('testname.new') then renamefile('testname.new',testname.exe');
der Name von von testfile.xxx war: TestName.xxx
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
14. Okt 2004
sowas mach ich ja. Aber wusstet Ihr, das Windows9x beim Dateinamen (lang) Gross/Klein unterscheidet? Daran lag es.
Böse Falle!
Gruss
EL
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
14. Okt 2004
Hi,
habs eingebaut. Hoffe es klappt.
Danke
Gruss
EL
Forum: Win32/Win64 API (native code)
Delphi
by emsländer,
14. Okt 2004
Hallo,
ich rufe per shellexecute ein weiteres Programm auf. Klappt bei mir (XP) und auf einem frisch installierten 98 SE in der VM wunderbar.
Bei einem Kollegen (W98 SE) klappt das nicht.
Hat jemand eine Idee?
Hier mein Aufruf: shellexecute(1,'OPEN',pchar('updatemanager.exe'),NIL,NIL,SW_NORMAL);