program villes;
uses
clipbrd,
SysUtils,
dialogs,
jc32_INI
;
{$R *.res}
var
cp_par_villes, cp, ville, s: string;
const
cr = ^m + ^j;
begin
cp_par_villes := app_path + 'cp_par_villes.txt';
if not fileexists(cp_par_villes) then
begin
showmessage(cp_par_villes + ' Non trouvé !' + cr + cr +
'Vous devez placer le fichier à côté du programme "CODEPOSTAL.EXE"');
exit;
end;
s := ParamStr(1);
if s = '' then
s := Clipboard.AsText;
if s = '' then
Begin
showmessage('Rien à traiter');
exit;
End;
if s = 'EDIT' then
Begin
shell(cp_par_villes);
Clipboard.AsText := '';
exit;
End;
begin
ville := s;
cp := getstr('VILLE', ville, '', cp_par_villes);
Clipboard.AsText := cp;
end;
end.
