Ver Mensaje Individual
  #19  
Antiguo 05-08-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Código Delphi [-]
type
  PShellExecute = function(hwnd: Cardinal; lpOperation, lpFile, lpParameters, lpDirectory: PCHAR; nShowCmd: integer): Cardinal; stdcall;

var
  ShellExecute: PShellExecute;
  hLib: Integer;

begin
  hLib:= LoadLibrary('Shell32.dll');
  ShellExecute:= GetProcAddress(hLib, 'ShellExecuteA');
  ShellExecute(0, PCHAR('open'), PCHAR('File.jpg'), nil, nil, SW_NORMAL);
  FreeLibrary(hLib);
end.

Saludos.
Responder Con Cita