Среда, 20.09.2017, 03:02 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Помогите пожалуйста с примитивной программой
Помогите пожалуйста с примитивной программой
virusik85Дата: Суббота, 10.11.2012, 19:37 | Сообщение # 1
Частый гость
Зарегистрирован: 10.11.2012
Группа: Пользователи
Сообщений: 27
Статус: Offline
Нужна программа (консольный режим) чтоб при запуске записывала в текстовый файл своё название , только без .exe
 
NeoДата: Воскресенье, 11.11.2012, 16:51 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: Offline
Что-то типо такого:
Code

function GetExeName:string;
Var i,n:integer;
begin
   Result:=ParamStr(0);
   n:=Length(Result);
   for i:=N downto 1 do
   if Result[i]='\' then
     break;
   result:=copy(result,i+1,n-i-4);
end;
Var F:TextFile;
   S:String;
begin
   AssignFile(F,'file.txt');   
   ReWrite(F);
   S:=GetExeName;
   WriteLn(F,S);
   CloseFile(F);
end.
 
virusik85Дата: Воскресенье, 11.11.2012, 17:35 | Сообщение # 3
Частый гость
Зарегистрирован: 10.11.2012
Группа: Пользователи
Сообщений: 27
Статус: Offline
спасибо.
Как сделать чтоб программа себя копировала ?
 
dolphinДата: Воскресенье, 11.11.2012, 23:24 | Сообщение # 4
Администратор
Сообщений: 902
Статус: Offline
Code
CopyFile(PChar(ParamStr(0)),'c:\file.exe',true);
 
delfcode » Delphi » Вопросы по Delphi » Помогите пожалуйста с примитивной программой
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz