Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
28. Jan 2009
Hallo Klaus,
ich sehe, du bist online.
Ja ich kompiliere wegen einer bestimmten Bibliothek (GDIAPI) mit D6 auf W98 und lasse es mit W98 und Vista laufen.
Das Programm ist nicht neu, der Fehler wäre mir bestimmt früher aufgefallen!!! Ich habe es gestern Abend nochmal ausprobiert, mal gibt es die Zugriffsverletztung dann wieder nicht. Die genaue Absturzstelle kenne ich nicht, weil der Fehler bei...
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
27. Jan 2009
Ich habe die Routine, wie folgt geändert:
function RenFile(const Oldname,Newname: string): Boolean;
var
SHFOS: TSHFileOpStruct;
o,n: string;
begin
if FileExists(Oldname) then begin
o:=Oldname + #0#0;
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
27. Jan 2009
Luckie,
ich benutze die Bibliothek GDIAPI von http://www.progdigy.com, die sich nach meinem jetzigen Kenntisstand nur mit D6/7 kompilieren lässt. Das hat aber mit dem Problem nichts zu tun.
Also Delphi 6.
Ich werde mit euren Tipps (Danke Klaus + himitsu) versuchen das Problem zu lösen und melde mich später nochmal.
Gruß W.
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
27. Jan 2009
Sorry, ich habe meine Frage mit "zu heißer Nadel gestrickt"!
Eigene Funktion RenFile sieht so aus:
function RenFile(const Oldname,Newname: string): Boolean;
var
SHFOS: TSHFileOpStruct;
a,n: array of Char;
begin
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
27. Jan 2009
Hallo Leute,
der folgende Code löst unter Vista eine "Zugriffsverletzung ... in Modul 'Kernel32.dll' lesen von Adresse 2" aus, unter W98 ist alles in Ordnung.
Woran kann das liegen? Ist RenFile bei Vista geändert worden?
if MessageDlg(s,mtConfirmation,,10) = mrYes then begin
if RenFile(Oldname,Bli.Folder + Newname) then // <--- HIER ------------
begin
if Config.CBit then...