PC World 2001 July/PCWorld_2001-07_cd.bin/Software/Komercni/software602/cnv_ifp.exe/I_IMPEXP_PREZ.PGM

Text File | 2001-02-14 | 858b | 32 lines

{$$3249892600 .                              }include

var
  impexp_prez_dir : string[255];
  impexp_prez_app : string[31];

procedure Impexp_prez_entry;
begin
  Exp_entry.OPEN(nil);
end;

procedure Impexp_prez_seldir;
var
  dirname : string[255];
begin
  dirname := Exp_entry.IMPEXP_PREZ_DIR.TEXT;
  if Select_directory(Exp_entry.HANDLE, dirname) then
    Exp_entry.IMPEXP_PREZ_DIR.TEXT := dirname;
end;

procedure Impexp_prez_execute;
begin
  if MessageBox(nil, "Opravdu si p°ejete provΘst export dat?", "Dotaz", mb_yes_no+mb_quest) = 6 then
    if ImpExp_ExExpAllExternal(Exp_entry.IMPEXP_PREZ_DIR.TEXT,Exp_entry.IMPEXP_PREZ_APP.TEXT) then begin
      MessageBox(nil, "Provedeno.", "Info", mb_ok+mb_info);
      Exp_entry.CLOSE;
    end
    else
      MessageBox(nil, "Export se nezda°il!", "Chyba", mb_ok+mb_stop);
end;