В программе, в процессе ее работы, формируются папка и текстовый файл с данными. Не выходя из программы надо просмотреть данные, например, блокнотом (или другой прогой, которая лежит в папке с основной программой). Все ясно, если заранее известно имя файла и путь к нему. Но и то и другое формируются в процессе работы основной программы. И тут что-то не получается - указываю ли на путь к файлу или на сам файл, который должен по умолчанию открыться Блокнотом - получаю либо вообще ничего, либо файл не найден.
| Код |
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,
Dialogs,ShellAPI, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Const stf:string='99'; {пусть это сформировала программа}
Var
dirtek,dirdata,stNumfile :string;
pchf:PChar;
begin
GetDir(0,dirtek);
dirdata:=dirtek+'\'+stf;
stNumFile:=dirdata+'\dat'+stf+'.txt'#0;
pchf:=@stNumFile;
{ ChDir(dirdata);}
{ ShellExecute(Handle,nil,pchf,nil,nil,SW_RESTORE);}
WinExec(pchf,SW_RESTORE);
end;
end.
|
|
)