16-08-2016, Saat: 13:40
Merhaba
Bu Sorun neyden kaynaklanır, Kodda yanlış bir yanlışım mı var ?

Bu Sorun neyden kaynaklanır, Kodda yanlış bir yanlışım mı var ?

procedure TForm4.Button4Click(Sender: TObject); var str: string; OpenDialog: TFileOpenDialog; SelectedFolder: string; begin OpenDialog := TFileOpenDialog.Create(nil); OpenDialog.DefaultFolder := '\\10.0.0.107\ortak\yakup\Yayındakiler'; try OpenDialog.Options := OpenDialog.Options + [fdoPickFolders]; if not OpenDialog.Execute then Abort; SelectedFolder := OpenDialog.filename; finally OpenDialog.Free; end; MyTable1.First; while not MyTable1.Eof do begin GlobalKod := MyTable1.FieldByName('kod').AsString; Filedownload(SelectedFolder); MyTable1.Next; end; try // Winexec(PAnsiChar('explorer.exe '+(OpenDialog.FileName)),SW_SHOW); ShellExecute(Handle, 'open', pcHAR(SelectedFolder), nil, nil, SW_SHOWNORMAL); except on E: Exception do end; end;