Нужен код фэйка

[54rus]

смысл такой.
окошко появляется в центре экрана строка в кот-ю вводится текст. по нажатию ОК текст сэйвится запускается фаил не ехе и форма закрывается
Сам не могу сделать т.к. уде лет 6 или 7 не шКОДил и больше половины забыл. дооформлю сам. Заранее спасибо

[Вавел из ГМТУ]

уде лет 6 или 7 не шКОДил и больше половины забыл.

Тогда тебе 6 или 7 лет..
Ибо чтоб это написать нужно знать работу с файлами и ShellExecute..
А это явно не та "половина", которую можно забыть.

[54rus]

поверь мне всё можно забыть если полностью сменить род занятий дэльфями увлекался в институте, после окончания языки забросил (кроме русского и английского) а сейчас появилась необходимость. так что, если не сложно дай хотябы кусками

[zotox]

Сообщение от 54rus

окошко появляется в центре экрана строка в кот-ю вводится текст. по нажатию ОК текст сэйвится запускается фаил не ехе и форма закрывается

Текст не читабителен (не понимаю суть)
Исправьте, тогда помогу если знания позволят

[Вавел из ГМТУ]

http://www.delphibasics.ru/AssignFile.php - сохранить текстовое поле в фаил.
http://www.programmersforum.ru/showt...t=ShellExecute - "запускается фаил не ехе".

Закрыть приложение: Application.Terminated;

[Пепел Феникса]

TextFile
AssignFile
Reset
Append
Rewrite
Write
WriteLn
Read
ReadLn
CloseFile
ShellExecute

и к каждому естественно + F1
(на всякий поясню...ввести в редакторе кода функу...навести курсор на нее(текстовый)...нажать F1)

[54rus]

Сообщение от zotox

Текст не читабителен (не понимаю суть)
Исправьте, тогда помогу если знания позволят

Форма состоит из маленького окошка на котором одна строка и кнопка ОК.
вводим в строку текст, жмем ОК
далее программа сохраняет этот текст в фаил
далее она запускает фаил который лежит на рабочем столе (фаил не ЕХЕ)
далее программа сама себя закрывает и всё.
всё остальное подгоню и допишу сам

[zotox]

Сообщение от 54rus

смысл такой.
окошко появляется в центре экрана строка в кот-ю вводится текст. по нажатию ОК текст сэйвится запускается фаил не ехе и форма закрывается
Сам не могу сделать т.к. уде лет 6 или 7 не шКОДил и больше половины забыл. дооформлю сам. Заранее спасибо

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function GetUserFromWindows: string;
    function GetSystemDisk: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.GetUserFromWindows: string;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

function TForm1.GetSystemDisk: string;
var
 S: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(S,SizeOf(S));
  Result:=copy(S,0,1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 rab1:string;
 txtfile:string;
 ispfile:string;
 s:TStrings;
begin
 s:=TStringList.Create;//Переменная куда будет все писаться и в дальнейшем сохр.
 Form1.Position:=poScreenCenter;//делаем чтобы программа стартовала по центру экрана


 txtfile:='nash_file.txt';//Куда сохр
 ispfile:='ne_exe_file.cfg';//Что потом запускать после закрытия нашей проги


 rab1:=GetSystemDisk+':\Documents and Settings\'+GetUserFromWindows+'\Рабочий стол\';
 //rab1 - путь до рабочего стола с опр. юзера и системного диска где сам раб.стол (ниче не меняй!)
 if edit1.text<>'' then //Если edit1 не пуст то...
  begin
    s.Text:=edit1.text; //Пишем в переменную S содержимое edit1.text
    s.SaveToFile(rab1+txtfile); //Сохр то что у нас в S (то есть edit1.text) в файл
    Close; //Закрываем прогу
    ShellExecute(Form1.Handle,nil,pchar(rab1+ispfile),nil,nil,SW_NORMAL); //Запускаем след. прогу, которая вас интересует
  end;
end;

end.

Кидаешь на форму edit1 и button1 (вкладка STANDART)
Делаешь событие для OnClick в edit1,
Вот и все! Если что не понятно пиши в асю 11////44\\\\0002 (без //// и \\\\)

[54rus]

большое спасибо. сейчас у нас уже 2 часа ночи, а вставать в 6. после работы буду проверять, как проверю отпишусь