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;
