Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Внизперевести на делфи Найти похожие ветки
← →
exo (2003-04-19 15:21) [0]привет
как будет выглядеть этот кусок кода написанный на с++ в делфи
typedef void (*MYPROC)(LPTSTR);
int main()
← →
Songoku (2003-04-19 15:30) [1]typedef void (*MYPROC)(LPTSTR); - Это какаето переменная
int main() - Это начало гловной функции
кароче давай весь исходник, тогда будет видно!!!
← →
anbezr (2003-04-19 15:34) [2]type
TMyProc = procedure(PChar);
finction Main: integer;
вот так
← →
exo (2003-04-19 15:40) [3]щас проверю
← →
exo (2003-04-19 15:56) [4]#include <windows.h>
#include <winbase.h>
typedef void (*MYPROC)(LPTSTR);
int main()
{
HINSTANCE LibHandle;
MYPROC ProcAdd;
char dllbuf[11] = "msvcrt.dll";
char sysbuf[7] = "system";
char cmdbuf[8] = "calc.exe";
LibHandle = LoadLibrary(dllbuf);
ProcAdd = (MYPROC) GetProcAddress(LibHandle, sysbuf);
(ProcAdd) (cmdbuf);
return 0;
}
← →
exo (2003-04-19 15:57) [5]вот весь исходник
← →
anbezr (2003-04-19 16:16) [6]и что же тебе здесь непонятно
← →
exo (2003-04-19 16:26) [7]компелятор ругается на
TMyProc = procedure(PChar);
← →
anbezr (2003-04-19 16:33) [8]type
TMyProc = procedure(PChar);
var
hDll: THandle;
proc: TMyProc;
begin
hDll := LoadLibrary("msvcrt.dll");
proc := GetProcAddress(hDll, "system");
proc("calc.exe");
end;
не проверял, но должно работать
← →
anbezr (2003-04-19 16:34) [9]да, загнался
TMyProc = procedure(p: PChar);
← →
exo (2003-04-19 17:30) [10]мастераа вы где
← →
anbezr (2003-04-19 17:55) [11]msvcrt расшифровка (из MSDN)
microsoft visual c runtime library.
← →
anbezr (2003-04-19 18:08) [12]char cmdbuf[8] = "calc.exe"; - неправильно
char cmdbuf[9] = "calc.exe"; - правильно
procedure TForm1.Button1Click(Sender: TObject);
type
TMyProc = procedure (r: PChar);cdecl;
var
hDll: THandle;
proc: TMyProc;
begin
hDll := LoadLibrary("msvcrt.dll");
proc := GetProcAddress(hDll, "system");
proc(PChar("calc.exe"));
end;
это работает на моем компе - MSVC установлен.
блин!
← →
exo (2003-04-19 21:36) [13]работает только консоль выскакивает почему?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c