перевести на делфи

← →
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);

мастераа вы где

← →
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 установлен.
блин!

работает только консоль выскакивает почему?

перевести на делфи Найти похожие ветки