Programm unter XP: Exception Processing Message

[erik-17]

Hallo Leute,

ich hab mit meinem Programm unter XP ein Problem:
Immer wenn ich es starte kommt die Windows Fehlermeldung:

Zitat:

*** Windows – kein Datenträger

*** Exception Processing Message c0000013 Parameters 75b0b9c 4 75b0b9c 75b0b9c

Ich hab keine Ahnung, was das jetzt bedeuted. Hab schon nach der Meldung gegooglet. Diese Meldung erscheint recht häufig bei einigen, meist beim Hochfahren und beim Öffnen von Software. Einige können dann auch gar nicht mehr herunterfahren.
Nur bei mir ist es anders:
Meldung kommt nur beim Starten von meinem Programm. Kam vorher noch nie und auch das Herunterfahren klappte problemlos.
Unter Vista läuft es ohne Fehlermeldung, nur unter XP.
Und das kurioseste ist noch, dass das Programm (wenn man bei der Meldung Weiter oder Abbrechen drückt) einwandfrei läuft.

Hier ist der Code von Form1.Show:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
user:= TStringList.Create;
korb:= TStringList.Create;
aResult:=TStringList.Create;
userpfad;
aResult:=TStringList.Create;
papierkorb;
Label3.Caption:=GetOS;
end;


procedure TForm1.userpfad;
begin
if (GetOS='Vista') then FindDirs('C:\users\','*',false);
if (GetOS= 'XP' )  then FindDirs('C:\Dokumente und Einstellungen\','*',false);
user:=aResult;
end;


function TForm1.GetOS:string;
var s : string;
   Regist : TRegIniFile;
begin
regist:=TRegIniFile.Create('regist');
regist.rootKey:=HKEY_LOCAL_MACHINE;
regist.openkey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\',false);
s:=regist.readstring('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\','ProductName','System nicht erkannt');
regist.free;
if not (pos('Vista',s)=0) then s:='Vista';
if not (pos('XP',s)=0) then s:='XP';
Result:=s;
end;

FindDirs macht folgendes: FindDirs('Pfad','Suchmaske',Unterordner auch durchsuchen?');
Die Procedure macht soweit keine Probleme, deswegen hab ich sie auch nicht mit reinkopiert.



Wisst ihr woran das liegen könnte??
Vielleicht an der Funktion "GetOS"??