안녕하세요?,,,,,
여러분들 하시는 일 모두 평안하시기를 바랍니다.
프로그램을 만들다가,,,
궁금한 점이있어서,,,적어봅니다.
제가 제작중인 프로그램은 업그레이드를 진행한 이후,,,,
readme.txt 파일을 자동으로 열어 볼려구 하는데요,,,,
어찌해야할지,,, 제가 허접한 초보라 ..
잘 모르겠습니다.
프로그램은 웹에서 파일을 다운로드 받어서,,, 자동 업그레이드를
실행하는 것인데요,,,,
업그레이드를 진행할 때.. readme.txt파일도 함께 다운 받을 생각입니다.
자동으로 readme.txt 파일을 열 수잇는 방법에 관해,,,,
조언 부탁드립니다,,,,,,
다를것 같습니다..
업그레이드를 진행한 이후 ReadMe_Run함수를 호출
(실행화일과 같은 경로면 경로는 생략가능)
ReadMe_Run('C:a.txt');
1) notepad로 직접 보여줌...
procedure TForm1.ReadMe_Run(Const FileName :String);
var
s_ExeWithParams : array[0..30] of char;
begin
StrPCopy(s_ExeWithParams,'NOTEPAD.EXE '+ FileName);
if FileExists(FileName) then
WinExec(s_ExeWithParams, SW_MAXIMIZE);
end;
2) 현재프로그램에서 보여줌
2-1) RichEdit나 메모로 보여줌(폼을 새로 열어서)
procedure TForm1.ReadMe_Run(Const FileName :String);
begin
try
Form2 := TForm2.Create(Self);
Form2.RichEdit1.Lines.LoadFromFile(FileName);
Form2.showmodal;
finally
Form2.Free;
end;
end;
2-2) 메세지박스로 보여줌
procedure TForm1.ReadMe_Run(Const FileName :String);
Var
Str : TStringList;
begin
Str:= TStringList.Create;
Str.LoadFromFile(FileName);
Showmessage(Str.Text);
end;