Ver Mensaje Individual
  #3  
Antiguo 21-12-2010
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Independientemente de los motivos por los que has decidido usar la API directamente, el principal problema está en la declaración de la función que quieres ejecutar en el hilo. No puede ser un procedimiento sino una función y debe ser stdcall:

Código Delphi [-]
function MiFuncion(Param: PCHAR): DWORD; stdcall;
begin
  MessageBox(0, 0, Param, 0);
  Result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ID : Cardinal;
  s  : String;
begin
  s := 'hola';
  CreateThread(nil, 0, @MiFuncion, PCHAR(s), 0, ID);
end;


Saludos.
Responder Con Cita