hata abstract error

[delphikursu]

ben programı yaptım tam bitti dedim hata vermeye başladı hata ilğiç bilgisayar ilk açılıyor prg çalışıyor button1 click yaptığımda şu hatayı veriyor abstract error prg yeniden çalıştırdığımda hata vermiyor sadeçe bilgisayar ilkez açıldığında hata veriyor

[delphikursu]

hatayı buldum klasör silme işlemi yapmıştım ondan kaynaklanıyormuş klasör silme işlemi için şu kodları kullandım soru kalmadı

Kod: Tümünü seç

function dizinsil(FilesOrDir: string): boolean;
var
  F: TSHFileOpStruct;
  From: string;
  Resultval: integer;
begin
  FillChar(F, SizeOf(F), #0);
  From := FilesOrDir + #0;
  Screen.Cursor := crHourGlass;
  try
    F.wnd   := 0;
    F.wFunc := FO_DELETE;
    F.pFrom := PChar(From);
    F.pTo   := nil;

    F.fFlags := FOF_ALLOWUNDO or
                FOF_NOCONFIRMATION or
                FOF_SIMPLEPROGRESS or
                FOF_FILESONLY;

    F.fAnyOperationsAborted := False;
    F.hNameMappings := nil;
    Resultval := ShFileOperation(F);
    Result := (ResultVal = 0);
  finally
    Screen.Cursor := crDefault;
  end;
end;

hemde win klasör acıksa klasörü kapatıyor sonra silme işlemi yapıyor

[shadowmann]

Hocam tebrik ederim. Bulduğun çözümü forumla paylaştığın için.